perm filename SEGT.SAI[PIC,HE] blob sn#428031 filedate 1979-03-05 generic text, type C, neo UTF8
COMMENT āŠ—   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	entry
C00003 ENDMK
CāŠ—;
entry;
begin

  require  "define.sai"  source!file;
  require  "seg.dcl"  source!file;

  internal  procedure  segtst;
  begin
  integer  segid, segs, nap, c;
  integer  id1,id2;

    print(" You are testing sdist in <babu> seg.sai.",crlf);
  segs := noofsegs;  segid := 1;  id1 := 1;  id2 := 2;
    makecs;
  do  begin
      Sginid(id1);  sgtty;
      Sginid(id2);  sgtty;
      print(sdist(id1,id2),crlf);
      iprmpt(" next id1",id1);  iprmpt(" next id2",id2);
  end  until  not(1 <= segid <= segs);
  end;

end